home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / UnJPEG.ifx < prev    next >
Text File  |  1996-03-02  |  500b  |  34 lines
  1. /*
  2.  * $VER: UnJPEG 1.00.00 (24.9.92)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Convert a series of JPEG images to IFF24 files.
  8.  *
  9.  */
  10.  
  11. OPTIONS RESULTS
  12.  
  13. RequestFile '"Input Basename..."'
  14. IF rc ~= 0 THEN EXIT
  15. input = result
  16.  
  17. RequestFile '"Output Basename..."'
  18. IF rc ~= 0 THEN EXIT
  19. output = result
  20.  
  21. DO i = 1 TO 25
  22.  
  23.    num = RIGHT(i,3,'0')
  24.  
  25.    LoadBuffer input||num NoSmooth
  26.    IF rc ~= 0 THEN LEAVE
  27.  
  28.    SaveBufferAs ILBM output||num
  29.  
  30.    END
  31.  
  32.  
  33. EXIT
  34.